﻿
CREATE PROC Inv.spValidaCodigo
	@psCodigo	VARCHAR(14),
	@pnIsValid	BIT OUT
AS
BEGIN
	SET NOCOUNT ON
	DECLARE @sCodigo1 VARCHAR(7), @sCodigo2 VARCHAR(7), @sCadena1 VARCHAR(7), @sCadena2 VARCHAR(7)
	
	SET @sCodigo1 = SUBSTRING(@psCodigo, 1, 7)
	SET @sCodigo2 = SUBSTRING(@psCodigo, 8, 7)
	SET @sCadena1 = SUBSTRING(@sCodigo1, 1,6)
	SET @sCadena2 = SUBSTRING(@sCodigo2, 1,6)

	EXEC Inv.spGeneraCodigo @psCodigo = @sCadena1, @psCodigo1 = @sCadena1 OUTPUT -- varchar(14)
	EXEC Inv.spGeneraCodigo @psCodigo = @sCadena2, @psCodigo1 = @sCadena2 OUTPUT-- varchar(14)

	SET @pnIsValid = 0
	IF @sCodigo1 = @sCadena1 AND @sCodigo2 = @sCadena2
		SET @pnIsValid = 1
	
	IF @pnIsValid = 1
		PRINT 'Valid'
	ELSE
		PRINT 'Invalid'
	SET NOCOUNT OFF
END